PC User 2003 January/Disc 3/Amethyst.iso/live/etc/makedev.d/midi

Text File | 2002-11-06 | 210 b | 8 lines

$numdevs{$name} = 192;    $stddevs{$name} = "^([a-z]*[01])\$";

$generate{$name} = sub {
    my @names = ("midi", "rmidi", "smpte");

    &$MkNod ("system", sprintf("%s%d", $names[$i/64], $i%64), "b", 35, $i);
};